home *** CD-ROM | disk | FTP | other *** search
- MODULE 'graphics/rastport'
-
- #define ON_DISPLAY custom.dmacon:=BITSET|DMAF_RASTER
- #define OFF_DISPLAY custom.dmacon:=BITCLR|DMAF_RASTER
- #define ON_SPRITE custom.dmacon:=BITSET|DMAF_SPRITE
- #define OFF_SPRITE custom.dmacon:=BITCLR|DMAF_SPRITE
-
- #define ON_VBLANK custom.intena:=BITSET|INTF_VERTB
- #define OFF_VBLANK custom.intena:=BITCLR|INTF_VERTB
-
- #define SetDrPt(w,p) (w).LinePtrn:=p\
- (w).Flags|=FRST_DOT\
- (w).linpatcnt:=15
- #define SetAfPt(w,p,n) (w).AreaPtrn:=p\
- (w).AreaPtSz:=n
-
- #define SetOPen(w,c) (w).AOlPen:=c\
- (w).Flags|=AREAOUTLINE
- #define SetWrMsk(w,m) (w).Mask:=m
-
- /* the SafeSetxxx macros are backwards (pre V39 graphics) compatible versions */
- /* using these macros will make your code do the right thing under V39 AND V37 */
- #define SafeSetOutlinePen(w,c)\
- IF GfxBase.LibNode.Version<39\
- (w).AOlPen:=c\
- (w).Flags|=AREAOUTLINE\
- ELSE SetOutlinePen(w,c)
- #define SafeSetWriteMask(w,m)\
- IF GfxBase.LibNode.Version<39\
- (w).Mask:=(m)\
- ELSE SetWriteMask(w,m)
-
- /* synonym for GetOPen for consistency with SetOutlinePen */
- // #define GetOutlinePen(rp) GetOPen(rp)
-
- #define BNDRYOFF(w) (w).Flags&=~AREAOUTLINE
-
- #define CINIT(c,n) UCopperListInit(c,n)
- #define CMOVE(c,a,b) CMove(c,&a,b)\
- CBump(c)
- #define CWAIT(c,a,b) CWait(c,a,b)\
- CBump(c)
- #define CEND(c) CWAIT(c,10000,255)
-
- #define DrawCircle(rp,cx,cy,r) DrawEllipse(rp,cx,cy,r,r);
- #define AreaCircle(rp,cx,cy,r) AreaEllipse(rp,cx,cy,r,r);
-